/ Mac Power 1997 January / macpower199701.bin / AMUG / Publishing_19 / Alpha 6.5.sit / Help / Tcl Library - auto-loading

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 1a 54 63 6c 20 4c 69 | 62 72 61 72 79 20 2d 20 |..Tcl Li|brary - |
|00000010| 61 75 74 6f 2d 6c 6f 61 | 64 69 6e 67 00 00 00 00 |auto-loa|ding....|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 41 4c 46 | 41 01 00 00 00 00 00 00 |.TEXTALF|A.......|
|00000050| 00 00 00 00 00 03 da 00 | 00 01 7e a9 a2 a2 e6 a9 |........|..~.....|
|00000060| a2 a2 e6 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 fb c7 00 00 |........|........|
|00000080| 0d 41 6c 70 68 61 20 6e | 6f 77 20 73 75 70 70 6f |.Alpha n|ow suppo|
|00000090| 72 74 73 20 61 75 74 6f | 2d 6c 6f 61 64 69 6e 67 |rts auto|-loading|
|000000a0| 20 6f 66 20 74 63 6c 20 | 70 72 6f 63 73 2e 20 49 | of tcl |procs. I|
|000000b0| 6e 20 6f 72 64 65 72 20 | 74 6f 20 75 73 65 20 74 |n order |to use t|
|000000c0| 68 69 73 20 0d 66 61 63 | 69 6c 69 74 79 2c 20 79 |his .fac|ility, y|
|000000d0| 6f 75 20 6e 65 65 64 20 | 74 6f 20 63 72 65 61 74 |ou need |to creat|
|000000e0| 65 20 61 6e 20 69 6e 64 | 65 78 20 66 69 6c 65 20 |e an ind|ex file |
|000000f0| 66 6f 72 20 65 61 63 68 | 20 64 69 72 65 63 74 6f |for each| directo|
|00000100| 72 79 20 74 68 61 74 20 | 63 6f 6e 74 61 69 6e 73 |ry that |contains|
|00000110| 20 0d 74 63 6c 20 66 69 | 6c 65 73 20 61 6e 64 20 | .tcl fi|les and |
|00000120| 61 64 64 20 74 68 61 74 | 20 64 69 72 65 63 74 6f |add that| directo|
|00000130| 72 79 20 74 6f 20 74 68 | 65 20 64 65 66 69 6e 69 |ry to th|e defini|
|00000140| 74 69 6f 6e 20 6f 66 20 | 27 61 75 74 6f 5f 70 61 |tion of |'auto_pa|
|00000150| 74 68 27 20 61 74 20 74 | 68 65 20 0d 65 6e 64 20 |th' at t|he .end |
|00000160| 6f 66 20 6f 66 20 22 3a | 54 63 6c 3a 53 79 73 74 |of of ":|Tcl:Syst|
|00000170| 65 6d 43 6f 64 65 3a 41 | 6c 70 68 61 42 69 74 73 |emCode:A|lphaBits|
|00000180| 2e 74 63 6c 22 2e 20 54 | 68 69 73 20 69 6e 64 65 |.tcl". T|his inde|
|00000190| 78 20 66 69 6c 65 20 6d | 75 73 74 20 62 65 20 0d |x file m|ust be .|
|000001a0| 72 65 63 72 65 61 74 65 | 64 20 65 61 63 68 20 74 |recreate|d each t|
|000001b0| 69 6d 65 20 79 6f 75 20 | 61 64 64 20 6f 72 20 64 |ime you |add or d|
|000001c0| 65 6c 65 74 65 20 66 69 | 6c 65 20 6f 72 20 70 72 |elete fi|le or pr|
|000001d0| 6f 63 73 20 77 69 74 68 | 69 6e 20 66 69 6c 65 73 |ocs with|in files|
|000001e0| 20 66 72 6f 6d 20 74 68 | 65 73 65 20 0d 64 69 72 | from th|ese .dir|
|000001f0| 65 63 74 6f 72 69 65 73 | 2e 20 0d 0d 49 6e 64 65 |ectories|. ..Inde|
|00000200| 78 20 66 69 6c 65 73 20 | 61 72 65 20 63 72 65 61 |x files |are crea|
|00000210| 74 65 64 20 62 79 20 74 | 68 65 20 27 61 75 74 6f |ted by t|he 'auto|
|00000220| 5f 6d 6b 69 6e 64 65 78 | 27 20 70 72 6f 63 2e 20 |_mkindex|' proc. |
|00000230| 27 61 75 74 6f 5f 6d 6b | 69 6e 64 65 78 27 20 74 |'auto_mk|index' t|
|00000240| 61 6b 65 73 20 0d 74 77 | 6f 20 61 72 67 75 6d 65 |akes .tw|o argume|
|00000250| 6e 74 73 2c 20 61 20 64 | 69 72 65 63 74 6f 72 79 |nts, a d|irectory|
|00000260| 20 6e 61 6d 65 2c 20 61 | 6e 64 20 61 20 73 74 72 | name, a|nd a str|
|00000270| 69 6e 67 20 70 61 74 74 | 65 72 6e 20 28 6e 6f 74 |ing patt|ern (not|
|00000280| 20 61 20 72 65 67 75 6c | 61 72 20 0d 65 78 70 72 | a regul|ar .expr|
|00000290| 65 73 73 69 6f 6e 2c 20 | 73 65 65 20 74 68 65 20 |ession, |see the |
|000002a0| 64 6f 63 75 6d 65 6e 74 | 61 74 69 6f 6e 20 6f 66 |document|ation of|
|000002b0| 20 27 73 74 72 69 6e 67 | 20 6d 61 74 63 68 27 20 | 'string| match' |
|000002c0| 66 72 6f 6d 20 74 68 65 | 20 54 63 6c 20 68 65 6c |from the| Tcl hel|
|000002d0| 70 20 66 69 6c 65 20 0d | 66 6f 72 20 6d 6f 72 65 |p file .|for more|
|000002e0| 20 64 65 74 61 69 6c 73 | 20 6f 6e 20 73 74 72 69 | details| on stri|
|000002f0| 6e 67 20 70 61 74 74 65 | 72 6e 73 29 20 75 73 65 |ng patte|rns) use|
|00000300| 64 20 74 6f 20 64 65 66 | 69 6e 65 20 74 68 65 20 |d to def|ine the |
|00000310| 66 69 6c 65 73 20 66 72 | 6f 6d 20 74 68 61 74 20 |files fr|om that |
|00000320| 0d 64 69 72 65 63 74 6f | 72 79 20 74 68 61 74 20 |.directo|ry that |
|00000330| 6e 65 65 64 20 74 6f 20 | 62 65 20 69 6e 64 65 78 |need to |be index|
|00000340| 65 64 2e 20 0d 0d 46 6f | 72 20 65 78 61 6d 70 6c |ed. ..Fo|r exampl|
|00000350| 65 2c 20 69 66 20 49 27 | 76 65 20 61 64 64 65 64 |e, if I'|ve added|
|00000360| 20 61 20 6e 65 77 20 66 | 69 6c 65 20 6f 72 20 70 | a new f|ile or p|
|00000370| 72 6f 63 20 74 6f 20 61 | 20 66 69 6c 65 20 69 6e |roc to a| file in|
|00000380| 20 74 68 65 20 55 73 65 | 72 43 6f 64 65 20 0d 64 | the Use|rCode .d|
|00000390| 69 72 65 63 74 6f 72 79 | 20 73 75 70 70 6c 69 65 |irectory| supplie|
|000003a0| 64 20 77 69 74 68 20 74 | 68 69 73 20 72 65 6c 65 |d with t|his rele|
|000003b0| 61 73 65 2c 20 49 20 67 | 6f 20 74 6f 20 74 68 65 |ase, I g|o to the|
|000003c0| 20 54 63 6c 20 73 68 65 | 6c 6c 20 28 66 72 6f 6d | Tcl she|ll (from|
|000003d0| 20 74 68 65 20 0d 46 69 | 6c 65 20 6d 65 6e 75 29 | the .Fi|le menu)|
|000003e0| 2c 20 61 6e 64 20 64 6f | 20 74 68 65 20 66 6f 6c |, and do| the fol|
|000003f0| 6c 6f 77 69 6e 67 3a 0d | 0d 41 6c 70 68 61 20 c4 |lowing:.|.Alpha .|
|00000400| 3e 20 63 64 0d 41 6c 70 | 68 61 20 c4 3e 20 61 75 |> cd.Alp|ha .> au|
|00000410| 74 6f 5f 6d 6b 69 6e 64 | 65 78 20 3a 54 63 6c 3a |to_mkind|ex :Tcl:|
|00000420| 55 73 65 72 63 6f 64 65 | 20 2a 2e 74 63 6c 0d 61 |Usercode| *.tcl.a|
|00000430| 75 74 6f 5f 6d 6b 69 6e | 64 65 78 20 3a 54 63 6c |uto_mkin|dex :Tcl|
|00000440| 3a 55 73 65 72 63 6f 64 | 65 20 2a 2e 74 63 6c 0d |:Usercod|e *.tcl.|
|00000450| 41 6c 70 68 61 20 c4 3e | 0d 0d 00 00 00 00 00 00 |Alpha .>|........|
|00000460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000480| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000490| 74 65 72 20 74 65 78 74 | 22 0d 09 7d 0d 7d 0d 70 |ter text|"..}.}.p|
|000004a0| 72 6f 63 20 64 62 6c 51 | 75 6f 74 65 73 20 7b 7d |roc dblQ|uotes {}|
|000004b0| 1a 54 63 6c 20 4c 69 62 | 72 61 72 79 20 2d 20 61 |.Tcl Lib|rary - a|
|000004c0| 75 74 6f 2d 6c 6f 61 64 | 69 6e 67 6f 02 00 00 00 |uto-load|ingo....|
|000004d0| 00 00 54 45 58 54 41 4c | 46 41 01 00 01 a8 00 47 |..TEXTAL|FA.....G|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 a9 a2 6a a6 00 00 | 03 da 00 00 01 7e 20 7b |....j...|.....~ {|
|00000500| 0d 09 09 6d 65 73 73 61 | 67 65 20 22 65 6e 74 65 |...messa|ge "ente|
|00000510| 72 20 74 65 78 74 22 0d | 09 7d 0d 7d 0d 70 72 6f |r text".|.}.}.pro|
|00000520| 63 20 6e 6f 74 65 20 7b | 7d 20 7b 0d 09 69 66 20 |c note {|} {..if |
|00000530| 7b 5b 77 72 61 70 4f 62 | 6a 65 63 74 20 22 5c 5c |{[wrapOb|ject "\\|
|00000540| 6d 61 72 67 69 6e 70 61 | 72 7b 22 20 22 7d a5 22 |marginpa|r{" "}."|
|00000550| 5d 7d 20 74 68 65 6e 20 | 7b 0d 09 09 6d 65 73 73 |]} then |{...mess|
|00000560| 61 67 65 20 22 6d 61 72 | 67 69 6e 61 6c 20 6e 6f |age "mar|ginal no|
|00000570| 74 65 20 73 65 74 22 0d | 09 7d 20 65 6c 73 65 20 |te set".|.} else |
|00000580| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 dd |...H..Mo|naco....|
|00000590| c7 e8 00 00 00 00 00 f4 | c6 9a 00 03 2f 0a 03 0d |........|..../...|
|000005a0| 00 f1 62 fe 00 00 00 04 | 00 04 00 28 00 02 01 ca |..b.....|...(....|
|000005b0| 02 00 00 28 00 02 01 ca | 02 00 00 11 2a 34 00 00 |...(....|....*4..|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 01 00 |........|........|
|000005d0| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 dd c7 e8 |...L...L|...2....|
|000005e0| 0d 98 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|000005f0| 00 0a 03 ed ff ff 00 00 | 00 00 00 e2 94 50 00 00 |........|.....P..|
+--------+-------------------------+-------------------------+--------+--------+